home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Modes / latex Mode / latexMenu.tcl < prev    next >
Encoding:
Text File  |  1997-12-17  |  31.4 KB  |  1,378 lines  |  [TEXT/ALFA]
  1. #############################################################################
  2. #############################################################################
  3. #
  4. # latexMenu.tcl (called from latex.tcl)
  5. #
  6. # LaTeX menu definitions and key bindings
  7. #
  8. #############################################################################
  9. #
  10. # Author:  Tom Scavo <trscavo@syr.edu>, Vince Darley <darley@fas.harvard.edu>
  11. #
  12. #############################################################################
  13. #############################################################################
  14.  
  15. proc latexMenu.tcl {} {}
  16.  
  17. namespace eval TeX::sub {}
  18. namespace eval TeX::mp {}
  19.  
  20. # The highest level menu macro, to be called initially or whenever 
  21. # the LaTeX menu must be rebuilt (as in 'shadowtexSig' in latex.tcl,
  22. # or 'toggleLaTeXMenus' below): (simplified VMD July 97)
  23. proc buildLaTeXMenuQuietly {} {
  24.     global texMenu useShortLaTeXMenu useAMSLaTeX TeX::Menus
  25.     toggleAMSLaTeXmenus
  26.     TeX::sub::MathModes
  27.     
  28.     menu::buildProc texMenu buildLaTeXMenu
  29.     menu::buildSome texMenu
  30.     markMenuItem {LaTeX Utilities} {Short LaTeX Menu} $useShortLaTeXMenu
  31.     markMenuItem {LaTeX Utilities} {AMS-LaTeX} $useAMSLaTeX
  32. }
  33.  
  34. # Toggle the short menu flag and rebuild the LaTeX menu.  If the
  35. # latter operation fails, toggle the flag back to its original position.
  36. proc toggleLaTeXMenus {} {
  37.     toggleLaTeXMenuItem useShortLaTeXMenu
  38.     buildLaTeXMenuQuietly
  39. }
  40. # Toggle the AMS-LaTeX flag, reload the macros and menu, and rebuild 
  41. # the LaTeX menu.  If either of the latter two operations fail, toggle
  42. # the flag back to its original position.
  43. proc toggleAMSLaTeX {} {
  44.     toggleLaTeXMenuItem useAMSLaTeX
  45.     menu::buildSome "Math Style" "Text Size"
  46. }
  47. proc toggleLaTeXMenuItem {flag} {
  48.     global $flag modifiedVars
  49.     set $flag [expr 1 - [set $flag]]
  50.     lappend modifiedVars $flag
  51. }
  52. # For special purposes only:
  53. proc TeX::sub::RebuildLaTeXUtils {} {
  54.     global useShortLaTeXMenu useAMSLaTeX
  55.     eval [TeX::sub::LaTeXUtilities]
  56.     markMenuItem {LaTeX Utilities} {Short LaTeX Menu} $useShortLaTeXMenu
  57.     markMenuItem {LaTeX Utilities} {AMS-LaTeX} $useAMSLaTeX
  58. }
  59.  
  60. proc listToDummySubmenus {l} {
  61.         foreach i $l {
  62.                 lappend ret [list menu -n $i {}]
  63.         }
  64.         return $ret
  65. }
  66.  
  67. # Return a short menu or a long menu, depending on the value of
  68. # the global variable 'useShortLaTeXMenu':
  69. proc buildLaTeXMenu {} {
  70.         global useShortLaTeXMenu TeX::Menus texMenu
  71.         if {$useShortLaTeXMenu} {
  72.             return [list build [concat \
  73.                 [listToDummySubmenus [set TeX::Menus(Top)]] \
  74.                 [list "LaTeX Help"] \
  75.                 {(-} \
  76.                 [listToDummySubmenus [set TeX::Menus(Bottom)]] \
  77.                 [listToDummySubmenus [list "Math Submenus" "Text Submenus"]] \
  78.                 ] \
  79.                 {TeX::mp::latex -M TeX -m} \
  80.                 [concat [set TeX::Menus(Top)] [set TeX::Menus(Bottom)] \
  81.                 [list "Math Submenus" "Text Submenus"]] \
  82.                 $texMenu]
  83.     } else {
  84.             return [list build [concat \
  85.                 [listToDummySubmenus [set TeX::Menus(Top)]] \
  86.                 [list "LaTeX Help"] \
  87.                 {(-} \
  88.                 [listToDummySubmenus [set TeX::Menus(Bottom)]] \
  89.                 [listToDummySubmenus [set TeX::Menus(MathSubMenus)]] \
  90.                 [listToDummySubmenus [set TeX::Menus(TextSubMenus)]] \
  91.                 ] \
  92.                 {TeX::mp::latex -M TeX -m} \
  93.                 [concat [set TeX::Menus(Top)] [set TeX::Menus(Bottom)] \
  94.                 [set TeX::Menus(MathSubMenus)] [set TeX::Menus(TextSubMenus)]] \
  95.                 $texMenu]
  96.     }
  97. } 
  98. menu::buildProc "Math Submenus" TeX::sub::Math
  99. menu::buildProc "Text Submenus" TeX::sub::Text
  100. menu::buildProc Typeset TeX::sub::Typeset
  101. menu::buildProc TypesetOtherFiles TeX::sub::TypesetOtherFiles
  102. proc TeX::sub::Math {} {
  103.         global TeX::Menus
  104.         return [list build \
  105.             [listToDummySubmenus [set TeX::Menus(MathSubMenus)]] \
  106.             {dummy -M TeX -m} \
  107.             [set TeX::Menus(MathSubMenus)] \
  108.             {Math Submenus}]
  109. }
  110. proc TeX::sub::Text {} {
  111.         global TeX::Menus
  112.         return [list build \
  113.             [listToDummySubmenus [set TeX::Menus(TextSubMenus)]] \
  114.             {dummy -M TeX -m} \
  115.             [set TeX::Menus(TextSubMenus)] \
  116.             {Text Submenus}]
  117. }
  118.  
  119. set TeX::Menus(TextSubMenus) [list \
  120.         "Text Style" "Text Size" "Text Commands" "International" \
  121.         "Environments" "Boxes" "Miscellaneous"\
  122. ]
  123.  
  124. set TeX::Menus(Top) [list "Typeset" "Goto" "LaTeX Utilities"]
  125.  
  126. set TeX::Menus(Bottom) [list "Documents" "Page Layout" "Sectioning"]
  127.  
  128. set TeX::Menus(MathSubMenus) [list \
  129.         "Math Modes" "Math Style" "Math Environments" "Formulas" "Greek"  \
  130.         "Binary Operators" "Relations" "Arrows" "Dots" "Symbols" \
  131.         "Functions" "Large Operators" "Delimiters" "Math Accents" \
  132.         "Grouping" "Spacing" \
  133.         ]
  134.  
  135. ## 
  136.  # foreach v [list Top Bottom MathSubMenus TextSubMenus] {
  137.  #     foreach i [set TeX::Menus($v)] {
  138.  #         menu::buildProc $i TeX::sub::[join ${i} ""]
  139.  #     }
  140.  # }
  141.  ##
  142.  
  143. proc TeX::mp::latex {menu item} {
  144.         switch $item {
  145.                 {LaTeX Help}  {set func {global HOME; edit -r "$HOME:Help:LaTeX Help"}}
  146.                 default {set func $item}
  147.         }
  148.         eval $func
  149. }
  150.  
  151. #############################################################################
  152. #
  153. # Submenu definitions
  154. #
  155. #############################################################################
  156.  
  157. # Return the "Typeset" submenu.  If the current document belongs
  158. # to a TeX fileset, display the base filename throughout.
  159. #
  160. proc TeX::sub::Typeset {{currentWin ""}} {
  161.         global mode TeXmodeVars
  162.         if {$currentWin == ""} {set currentWin [win::Current]}
  163.         if {$currentWin == ""} {
  164.                 return [TeX::sub::MinimalTypeset]
  165.         } elseif { $mode == "TeX" } {
  166.                 set currentDoc [file tail $currentWin]
  167.                 # Process an untitled window:
  168.                 if { [set num [winUntitled]] } {
  169.                         if { $num > 1 } { set currentDoc "Untitled$num" }
  170.                         # fall through
  171.                 }
  172.         } else {
  173.                 return [TeX::sub::MinimalTypeset]
  174.         }
  175.         set docBasename [file rootname $currentDoc]
  176.         set projBasename $docBasename
  177.         set currentProj [isWindowInFileset $currentWin "tex"]
  178.         if {    $currentProj !=    "" } {
  179.                 set currentDoc [file tail [texFilesetBaseName $currentProj]]
  180.                 set docBasename [file rootname $currentDoc]
  181.         }
  182.         # Determine which menu items are dimmed:
  183.         foreach ext {DVI PS AUX IDX Selection} { set prefix$ext "" }
  184.         set ma [list \
  185.             {menu -n "Format" {}} \
  186.             "(-"]
  187.         if $TeXmodeVars(runTeXInBack) {
  188.                 lappend ma [list /TBack Typeset $currentDoc] \
  189.                     [list /T<U<ITypeset $currentDoc]
  190.         } else {
  191.                 lappend ma [list /TTypeset $currentDoc] \
  192.                     [list /T<U<IBack Typeset $currentDoc]
  193.         }
  194.         lappend ma \
  195.             [list <U<O/V${prefixDVI}View "$docBasename\.dvi"] \
  196.             [list <U<O/P${prefixDVI}Print "$docBasename\.dvi"] \
  197.             "(-" \
  198.             {<U<O/TTypeset Clipboard} \
  199.             [list ${prefixSelection}Typeset Selection] \
  200.             "(-" \
  201.             [list <S${prefixPS}Open "$docBasename\.ps"] \
  202.             [list <S${prefixDVI}dvips "$docBasename\.dvi"] \
  203.             [list ${prefixPS}View "$docBasename\.ps"] \
  204.             [list ${prefixPS}Print "$docBasename\.ps"] \
  205.             "(-" \
  206.             [list <SOpen "$docBasename\.bbl"] \
  207.             [list <S${prefixAUX}bibtex "$docBasename\.aux"] \
  208.             [list <E<SOpen "$docBasename\.ind"] \
  209.             [list <S${prefixIDX}makeindex "$docBasename\.idx"] \
  210.             "(-" \
  211.             {menu -n "Other Files" {}} \
  212.             "(-" \
  213.             {Remove Auxiliary Files…} \
  214.             {Remove Temporary Files}
  215.         return [list build $ma {TeX::mp::typeset -M TeX -m} \
  216.             {Format TypesetOtherFiles}]
  217. }
  218.  
  219. proc TeX::sub::MinimalTypeset {} {
  220.         set ma [list \
  221.             [list /TTypeset…] \
  222.             "(-" \
  223.             {<U<O/TTypeset Clipboard} \
  224.             {Typeset Selection} \
  225.             ]
  226.         return [list build $ma {TeX::mp::typeset -M TeX -m}]
  227. }
  228. # Return a submenu of LaTeX formats:
  229.  
  230. set "menu::proc(Format)" TeX::Format
  231. set "menu::otherflags(Format)" {-M TeX -m}
  232. set "menu::items(Format)" {
  233.         "LaTeX"
  234.         "Big-LaTeX"
  235.         "AMS-TeX"
  236.         "Plain TeX"
  237. }
  238.  
  239. # Return a submenu of LaTeX auxiliary files with basename $basename1,
  240. # except for the .aux file whose primary basename is $basename2.
  241. #
  242.  
  243. proc TeX::sub::TypesetOtherFiles {} {
  244.         set currentWin [win::Current]
  245.         set currentDoc [file tail $currentWin]
  246.         set docBasename [file rootname $currentDoc]
  247.         set projBasename $docBasename
  248.         set currentProj [isWindowInFileset $currentWin "tex"]
  249.         if {$currentProj !=    ""} {
  250.                 set currentDoc [file tail [texFilesetBaseName $currentProj]]
  251.                 set docBasename [file rootname $currentDoc]
  252.         }
  253.         set ma [list \
  254.             [list Open "$docBasename\.log"] \
  255.             [concat <SOpen "$docBasename\.aux "] \
  256.             [concat <SOpen "$projBasename\.aux"] \
  257.             [list Open "$docBasename\.toc"] \
  258.             [list Open "$docBasename\.lof"] \
  259.             [list Open "$docBasename\.lot"] \
  260.             [list Open "$docBasename\.idx"] \
  261.             [list Open "$docBasename\.bbl"] \
  262.             "(-" \
  263.             [list Open "$docBasename\.blg"] \
  264.             [list Open "$docBasename\.ilg"] \
  265.             "(-" \
  266.             {<U<O/OOpen Any TeX File…} \
  267.             ]
  268.     return [list build $ma {TeX::mp::typeset -M TeX -m} \
  269.         "" {Other Files}]
  270.     ]
  271. }
  272. proc TeX::mp::typeset {submenu item} {
  273.     switch -regexp $item {
  274.         {Typeset Selection}  {set func "typesetSelection"}
  275.         {Typeset Clipboard}  {set func "typesetClipboard"}
  276.         "Back\ Typeset.*"    {set func "typeset 1"}
  277.         "Typeset.*"  {set func "typeset"}
  278.         "View.*\.dvi$"  {set func {doTypesetCommand view DVI}}
  279.         "Print.*\.dvi$"  {set func {doTypesetCommand print DVI}}
  280.         "dvips.*\.dvi$"  {set func {doTypesetCommand dvips DVI}}
  281.         "View.*\.ps$"  {set func {doTypesetCommand view PS}}
  282.         "Print.*\.ps$"  {set func {doTypesetCommand print PS}}
  283.         "bibtex.*"  {set func {doTypesetCommand bibtex AUX}}
  284.         "makeindex.*"  {set func {doTypesetCommand makeindex IDX}}
  285.         "Open.*\.ps$"  {set func {doTypesetCommand open PS}}
  286.         "Open.*\.bbl$"  {set func {doTypesetCommand open BBL}}
  287.         "Open.*\.ind$"  {set func {doTypesetCommand open IND}}
  288.         "Open.*\.log$"  {set func {doTypesetCommand open LOG}}
  289.         "Open.*\.aux$"  {set func {doTypesetCommand open AUX 1}}
  290.         "Open.*\.aux $"  {set func {doTypesetCommand open AUX}}
  291.         "Open.*\.toc$"  {set func {doTypesetCommand open TOC}}
  292.         "Open.*\.lof$"  {set func {doTypesetCommand open LOF}}
  293.         "Open.*\.lot$"  {set func {doTypesetCommand open LOT}}
  294.         "Open.*\.idx$"  {set func {doTypesetCommand open IDX}}
  295.         "Open.*\.blg$"  {set func {doTypesetCommand open BLG}}
  296.         "Open.*\.ilg$"  {set func {doTypesetCommand open ILG}}
  297.         {Open Any TeX File}  {set func "openAnyTeXFile"}
  298.         {Remove Auxiliary Files}  {set func "removeAuxiliaryFiles"}
  299.         {Remove Temporary Files}  {set func "removeTemporaryFiles"}
  300.         default {set func $item}
  301.     }
  302.     eval $func
  303. }
  304.  
  305. # Return the "Goto" submenu:
  306. set menu::proc(Goto) TeX::mp::goto
  307. set menu::otherflags(Goto) {-M TeX -m}
  308. set menu::items(Goto) {
  309.         "<U/SLaTeX"
  310.         "BibTeX"
  311.         "MakeIndex"
  312.         "(-"
  313.         {Next Template Stop}
  314.         {Prev Template Stop}
  315.         "(-"
  316.         {Next Command}
  317.         {Prev Command}
  318.         {Next Command Select}
  319.         {Prev Command Select}
  320.         {Next Command Select With Args}
  321.         {Prev Command Select With Args}
  322.         "(-"
  323.         {Next Environment}
  324.         {Prev Environment}
  325.         {Next Environment Select}
  326.         {Prev Environment Select}
  327.         "(-"
  328.         {Next Section}
  329.         {Prev Section}
  330.         {Next Section Select}
  331.         {Prev Section Select}
  332.         {Next Subsection}
  333.         {Prev Subsection}
  334.         {Next Subsection Select}
  335.         {Prev Subsection Select}
  336.         }
  337.  
  338. proc TeX::mp::goto {submenu item} {
  339.     switch $item {
  340.         "LaTeX"  {set func "texApp TeX"}
  341.         "BibTeX" - "MakeIndex" {set func "texApp $item"}
  342.         {Next Template Stop}  {set func "ring::+"}
  343.         {Prev Template Stop}  {set func "ring::-"}
  344.         {Next Command}  {set func "nextCommand"}
  345.         {Prev Command}  {set func "prevCommand"}
  346.         {Next Command Select}  {set func "nextCommandSelect"}
  347.         {Prev Command Select}  {set func "prevCommandSelect"}
  348.         {Next Command Select With Args}  {set func "nextCommandSelectWithArgs"}
  349.         {Prev Command Select With Args}  {set func "prevCommandSelectWithArgs"}
  350.         {Next Environment}  {set func "nextEnvironment"}
  351.         {Prev Environment}  {set func "prevEnvironment"}
  352.         {Next Environment Select}  {set func "nextEnvironmentSelect"}
  353.         {Prev Environment Select}  {set func "prevEnvironmentSelect"}
  354.         {Next Section}  {set func "nextSection"}
  355.         {Prev Section}  {set func "prevSection"}
  356.         {Next Section Select}  {set func "nextSectionSelect"}
  357.         {Prev Section Select}  {set func "prevSectionSelect"}
  358.         {Next Subsection}  {set func "nextSubsection"}
  359.         {Prev Subsection}  {set func "prevSubsection"}
  360.         {Next Subsection Select}  {set func "nextSubsectionSelect"}
  361.         {Prev Subsection Select}  {set func "prevSubsectionSelect"}
  362.         default {set func $item}
  363.     }
  364.     eval $func
  365. }
  366.  
  367. # Return the "LaTeX Utilities" submenu:
  368.  
  369. set "menu::proc(LaTeX Utilities)" TeX::mp::latexUtils
  370. set "menu::otherflags(LaTeX Utilities)" {-M TeX -m}
  371. set "menu::items(LaTeX Utilities)" {
  372.         {Delete Template Stops}
  373.         {Delete Comments}
  374.         "(-"
  375.         {Convert Quotes}
  376.         {Convert Dollar Signs}
  377.         "(-"
  378.         {Convert Accents to LaTeX}
  379.         {Convert LaTeX to Accents}
  380.         "(-"
  381.         {Short LaTeX Menu}
  382.         {AMS-LaTeX}
  383. }
  384. #        {<U<O/CChoose Command…}
  385. #        "(-"
  386.  
  387. proc TeX::mp::latexUtils {submenu item} {
  388.     switch $item {
  389.         {Choose Command}  {set func {chooseCommand [getLaTeXMenu]}}
  390.         {Insert Reference}  {set func "insertReference"}
  391.         {Delete Template Stops}  {set func "ring::clear"}
  392.         {Delete Comments}  {set func "deleteComments"}
  393.         {Convert Quotes}  {set func "convertQuotes"}
  394.         {Convert Dollar Signs}  {set func "convertDollarSigns"}
  395.         {Convert Accents to LaTeX}  {set func "accentsToLatexInRegion"}
  396.         {Convert LaTeX to Accents}  {set func "latexToAccentsInRegion"}
  397.         {Short LaTeX Menu}  {set func "toggleLaTeXMenus"}
  398.         {AMS-LaTeX}  {set func "toggleAMSLaTeX"}
  399.         default {set func $item}
  400.     }
  401.     eval $func
  402. }
  403.  
  404. # Return the "Documents" submenu:
  405. set "menu::proc(Documents)" TeX::mp::documents
  406. set "menu::otherflags(Documents)" {-M TeX -m}
  407. set "menu::items(Documents)" [list \
  408.         {<U<O/NNew Document…} \
  409.         {menu -n "Insert Document" {}} \
  410.         "(-" \
  411.         "options…" \
  412.         "<B<I/Uusepackage" \
  413.         {menu -n "Packages" {}} \
  414.         "(-" \
  415.         "filecontents…" \
  416.         {filecontents All} \
  417.         "(-" \
  418.         {Rebuild Documents Submenu} \
  419.         ]
  420. set menu::which_subs(Documents) [list "Insert Document" "Packages"]
  421. menu::buildProc Packages TeX::sub::Packages
  422.  
  423. set "menu::proc(Insert Document)" TeX::mp::documents
  424. set "menu::otherflags(Insert Document)" {-M TeX -m}
  425. set "menu::items(Insert Document)" {
  426.         "article"
  427.         "report"
  428.         "book"
  429.         "letter"
  430.         "slides"
  431.         "other…"
  432.         }
  433.  
  434.  
  435. proc TeX::mp::documents {submenu item} {
  436.     switch $item {
  437.         {New Document}  {set func "newLaTeXDocument"}
  438.         {article}  {set func "articleDocumentclass"}
  439.         {report}  {set func "reportDocumentclass"}
  440.         {book}  {set func "bookDocumentclass"}
  441.         {letter}  {set func "letterDocumentclass"}
  442.         {slides}  {set func "slidesDocumentclass"}
  443.         {other}  {set func "otherDocumentclass"}
  444.         {usepackage} {insertPackage ""; return}
  445.         {filecontents All} {set func "filecontentsAll"}
  446.         {Rebuild Documents Submenu}  {
  447.             global packagesSubmenuItems
  448.             set packagesSubmenuItems ""
  449.             message "Rebuilding the Documents submenu…"
  450.             eval [documentsSubmenu 1]
  451.             message ""
  452.             return
  453.         }
  454.         default {set func $item}
  455.     }
  456.     eval $func
  457. }
  458. proc TeX::sub::Packages {} {
  459.     global TeXmodeVars
  460.     if { $TeXmodeVars(buildPkgsSubmenu) } {
  461.         global packagesSubmenuItems
  462.         if { ![info exists packagesSubmenuItems] || $packagesSubmenuItems == "" } {
  463.                 global latexPackages
  464.                 set folders [buildTeXSearchPath 0]
  465.                 # See DblClickAux.tcl for the definition of 'buildSubMenu':
  466.                 set packagesSubmenuItems \
  467.                     [buildSubMenu $folders "Packages" TeX::mp::package latexPackages ".sty"]
  468.         }
  469.         return $packagesSubmenuItems
  470.     } else {
  471.         catch {unset packagesSubmenuItems}
  472.         return ""
  473.     }
  474. }
  475. proc TeX::mp::package {submenu pkgName} {
  476.     global latexPackages
  477.     # See latexMacros.tcl for definition of 'insertPackage':
  478.     insertPackage [file tail [file rootname $latexPackages($submenu:$pkgName)]]
  479. }
  480.  
  481. # Return the "Page Layout" submenu:
  482.  
  483. set "menu::otherflags(Page Layout)" {-M TeX -m}
  484. set "menu::items(Page Layout)"  {
  485.         "maketitle"
  486.         "(-"
  487.         "abstract"
  488.         "titlepage"
  489.         "(-"
  490.         "pagestyle…"
  491.         "thispagestyle…"
  492.         "pagenumbering…"
  493.         "(-"
  494.         "twocolumn"
  495.         "onecolumn"
  496. }
  497.  
  498.  
  499. # Return the "Sectioning" submenu:
  500.  
  501. set menu::proc(Sectioning) TeX::mp::sectioning
  502. set menu::otherflags(Sectioning) {-M TeX -m}
  503. set menu::items(Sectioning) {
  504.         "<Spart*"
  505.         "<Spart"
  506.         "<E<Schapter*"
  507.         "<Schapter"
  508.         "<E<Ssection*"
  509.         "<Ssection"
  510.         "<E<Ssubsection*"
  511.         "<Ssubsection"
  512.         "<E<Ssubsubsection*"
  513.         "<Ssubsubsection"
  514.         "<E<Sparagraph*"
  515.         "<Sparagraph"
  516.         "<E<Ssubparagraph*"
  517.         "<Ssubparagraph"
  518.         "(-"
  519.         "appendix"
  520. }
  521.  
  522. proc TeX::mp::sectioning {submenu item} {
  523.     if [regexp (part|chapter|section|paragraph) $item] {
  524.             eval sectioning $item
  525.     } else {
  526.             eval $item
  527.     }
  528. }
  529.  
  530. # Return the "Text Style" submenu:
  531. set "menu::otherflags(Text Style)" {-M TeX -m}
  532. set "menu::items(Text Style)"  {
  533.         "<S<B<I/Eemph"
  534.         "<S<U<B<I/Eem"
  535.         "<B<O/Uunderline"
  536.         "(-"
  537.         "<Supshape"
  538.         "<Stextup"
  539.         "<E<S<B<I/Itextit"
  540.         "<S<U<B<I/Iitshape"
  541.         "<E<S<B<I/Stextsl"
  542.         "<S<U<B<I/Sslshape"
  543.         "<E<S<B<I/Htextsc"
  544.         "<S<U<B<I/Hscshape"
  545.         "(-"
  546.         "<Smdseries"
  547.         "<Stextmd"
  548.         "<E<S<B<I/Btextbf"
  549.         "<S<U<B<I/Bbfseries"
  550.         "(-"
  551.         "<S<B<I/Rtextrm"
  552.         "<S<U<B<I/Rrmfamily"
  553.         "<E<S<B<I/Wtextsf"
  554.         "<S<U<B<I/Wsffamily"
  555.         "<E<S<B<I/Ytexttt"
  556.         "<S<U<B<I/Yttfamily"
  557.         "(-"
  558.         "<Snormalfont"
  559.         "<Stextnormal"
  560.         }
  561.  
  562.  
  563. # Return the "Text Size" submenu:
  564. proc TeX::mp::textSize {menu item} {
  565.         doTextSize $item
  566. }
  567.  
  568. proc TeX::mp::textCommands {menu item} {
  569.         insertObject "\\${item}"
  570. }
  571. set "menu::proc(Text Commands)" TeX::mp::textCommands
  572. set "menu::otherflags(Text Commands)" {-M TeX -m}
  573. set "menu::items(Text Commands)" {
  574.         "textsuperscript"
  575.         "textcircled"
  576.         "(-"
  577.         "textcompwordmark"
  578.         "textvisiblespace"
  579.         "(-"
  580.         "!—textemdash"
  581.         "!–textendash"
  582.         "!¡textexclamdown"
  583.         "!¿textquestiondown"
  584.         "!“textquotedblleft"
  585.         "!”textquotedblright"
  586.         "!‘textquoteleft"
  587.         "!’textquoteright"
  588.         "(-"
  589.         "textbullet"
  590.         "textperiodcentered"
  591.         "(-"
  592.         "textbackslash"
  593.         "textbar"
  594.         "textless"
  595.         "textgreater"
  596.         "(-"
  597.         "textasciicircum"
  598.         "textasciitilde"
  599.         "(-"
  600.         "textregistered"
  601.         "texttrademark"
  602. }
  603.  
  604. # Return the "International" submenu:
  605.     set menu::proc(International) TeX::mp::internat
  606. set menu::otherflags(International) {-M TeX -m}
  607. set menu::items(International) {
  608.         {ò}
  609.         {ó}
  610.         {ô}
  611.         {ö}
  612.         {õ}
  613.         "(-"
  614.         {ç}
  615.         {œ}
  616.         {æ}
  617.         {å}
  618.         {ø}
  619.         "(-"
  620.         {Ç}
  621.         {Œ}
  622.         {Æ}
  623.         {Å}
  624.         {Ø}
  625.         "(-"
  626.         ss
  627.         SS
  628.         "(-"
  629.         {¿}
  630.         {¡}
  631. }
  632. proc TeX::mp::internat {menu item} {
  633.     $item
  634. }
  635.  
  636. # Return the "Environments" submenu:
  637.  
  638.     set menu::proc(Environments) TeX::mp::envs
  639. set menu::otherflags(Environments) {-M TeX -m}
  640. set menu::items(Environments) {
  641.         "<I/kitemize…"
  642.         "<U<I/kenumerate…"
  643.         "<B<I/kdescription…"
  644.         "thebibliography…"
  645.         "(-"
  646.         "<I/lslide"
  647.         "<U<I/loverlay"
  648.         "<B<I/lnote"
  649.         "(-"
  650.         "<I/mfigure"
  651.         "<U<I/mtable"
  652.         "<B<I/mtabular…"
  653.         "(-"
  654.         "<I/nverbatim"
  655.         "<U<I/nquote"
  656.         "<B<I/nquotation"
  657.         "verse"
  658.         "(-"
  659.         "<I/ocenter"
  660.         "<U<I/oflushleft"
  661.         "<B<I/oflushright"
  662.         "(-"
  663.         {<U<O/EChoose Environment…}
  664. }
  665. proc TeX::mp::envs {submenu item} {
  666.     switch $item {
  667.         {Choose Environment}  {set func chooseEnvironment}
  668.         default {set func $item}
  669.     }
  670.     eval $func
  671. }
  672.  
  673. # Return the "Boxes" submenu:
  674.  
  675.     set "menu::otherflags(Boxes)" {-M TeX -m}
  676. set "menu::items(Boxes)"  {
  677.         "<B<I/Mmbox"
  678.         "makebox"
  679.         "fbox"
  680.         "framebox"
  681.         "(-"
  682.         "newsavebox"
  683.         "sbox"
  684.         "savebox"
  685.         "usebox"
  686.         "(-"
  687.         "raisebox"
  688.         "(-"
  689.         "parbox"
  690.         "minipage"
  691.         "(-"
  692.         "rule"
  693. }
  694.  
  695. # Return the "Miscellaneous" submenu:
  696.     set menu::proc(Miscellaneous) TeX::mp::misc
  697. set menu::otherflags(Miscellaneous) {-M TeX -m}
  698. set menu::items(Miscellaneous) {
  699.         "<B<I/Vverb"
  700.         "<B<I/Ffootnote"
  701.         {<B<I/Nmarginal note}
  702.         "(-"
  703.         "<B<I/Llabel"
  704.         "<B<I/Xref"
  705.         "<B<I/Ppageref"
  706.         "<B<I/Ccite"
  707.         "<U<B<I/Cnocite"
  708.         "(-"
  709.         "<B<I/Jitem"
  710.         "(-"
  711.         "<B<I/'quotes"
  712.         {<U<B<I/'double quotes}
  713.         "(-"
  714.         {TeX logo}
  715.         {LaTeX logo}
  716.         {LaTeX2e logo}
  717.         "date"
  718.         "(-"
  719.         "!†dag"
  720.         "ddag"
  721.         {!§section mark}
  722.         {!¶paragraph mark}
  723.         "!©copyright"
  724.         "!£pounds"
  725. }
  726. proc TeX::mp::misc {submenu item} {
  727.     switch $item {
  728.         {marginal note}  {set func "marginalNote"}
  729.         "item" {set func "insertItem"}
  730.         "label" {set func "insertLabel"}
  731.         {double quotes}  {set func "dblQuotes"}
  732.         {TeX logo}  {set func "texLogo"}
  733.         {LaTeX logo}  {set func "latexLogo"}
  734.         {LaTeX2e logo}  {set func "latex2eLogo"}
  735.         "date" {set func "today"}
  736.         {section mark}  {set func "sectionMark"}
  737.         {paragraph mark}  {set func "paragraphMark"}
  738.         default {set func $item}
  739.     }
  740.     eval $func
  741. }
  742.  
  743. # Return a "Math Modes" submenu (called below and in latexKeys.tcl):
  744. set "menu::proc(Math Modes)" TeX::mp::mathModes
  745. set "menu::otherflags(Math Modes)" {-M TeX -m}
  746. proc TeX::sub::MathModes {} {
  747.         global TeXmodeVars menu::items
  748.         if {$TeXmodeVars(useDollarSigns)} {
  749.                 bind '4' <zc> texMath "TeX"
  750.                 bind '4' <zoc> texDisplaymath "TeX"
  751.                 set "menu::items(Math Modes)" {
  752.                         {<B<O/MTeX math}
  753.                         {<B<I<O/MTeX displaymath}
  754.                         "(-"
  755.                         {LaTeX math}
  756.                         {LaTeX displaymath}
  757.                 }
  758.         } else {
  759.                 bind '4' <zc> latexMath "TeX"
  760.                 bind '4' <zoc> latexDisplaymath "TeX"
  761.                 set "menu::items(Math Modes)" {
  762.                         {TeX math}
  763.                         {TeX displaymath}
  764.                         "(-"
  765.                         {<B<O/MLaTeX math}
  766.                         {<B<I<O/MLaTeX displaymath}
  767.                 }
  768.         }
  769. }
  770. proc TeX::mp::mathModes {submenu item} {
  771.     switch $item {
  772.         {TeX math}  {set func "texMath"}
  773.         {TeX displaymath}  {set func "texDisplaymath"}
  774.         {LaTeX math}  {set func "latexMath"}
  775.         {LaTeX displaymath}  {set func "latexDisplaymath"}
  776.         default {set func $item}
  777.     }
  778.     eval $func
  779. }
  780.  
  781. proc TeX::mp::mathStyle {submenu item} {
  782.         switch $item {
  783.                 mathbb {doUppercaseMathStyle mathbb "math blackboard bold"}
  784.                 mathfrak {doMathStyle mathfrak "math fraktur"}
  785.                 mathit {doMathStyle mathit "math italic"}
  786.                 mathrm {doMathStyle mathrm "math roman"}
  787.                 mathbf {doMathStyle mathbf "math bold"}
  788.                 mathsf {doMathStyle mathsf "math sans serif"}
  789.                 mathtt {doMathStyle mathtt "math typewriter"}
  790.                 mathcal {doUppercaseMathStyle mathcal "math calligraphic"}
  791.                 displaystyle {doMathStyle displaystyle "display style"}
  792.                 textstyle {doMathStyle textstyle "text style"}
  793.                 scriptstyle {doMathStyle scriptstyle "script style"}
  794.                 scriptscriptstyle {doMathStyle scriptscriptstyle "scriptscript style"}
  795.         }
  796. }
  797.  
  798. # Return the "Math Style" submenu:
  799. set "menu::proc(Math Style)" TeX::mp::mathStyle
  800. set "menu::otherflags(Math Style)" {-M TeX -m}
  801. set "menu::proc(Text Size)" TeX::mp::textSize
  802. set "menu::otherflags(Text Size)" {-M TeX -m}
  803. proc toggleAMSLaTeXmenus {} {
  804.         global useAMSLaTeX menu::items
  805.         if { $useAMSLaTeX } {
  806.             set "menu::items(Math Style)" {
  807.                 "<B<I<O/Imathit"
  808.                 "<B<I<O/Rmathrm"
  809.                 "<B<I<O/Bmathbf"
  810.                 "<B<I<O/Wmathsf"
  811.                 "<B<I<O/Ymathtt"
  812.                 "<B<I<O/Cmathcal"
  813.                 "(-"
  814.                 "mathbb"
  815.                 "mathfrak"
  816.                 "(-"
  817.                 "<B<I<O/Ddisplaystyle"
  818.                 "<B<I<O/Ttextstyle"
  819.                 "<B<I<O/Sscriptstyle"
  820.                 "scriptscriptstyle"
  821.             }
  822.             set "menu::items(Text Size)" {
  823.                 "<B<I/1Tiny"
  824.                 "<B<I/2tiny"
  825.                 "<B<I/3SMALL"
  826.                 "<B<I/4Small"
  827.                 "<B<I/5small"
  828.                 "normalsize"
  829.                 "<B<I/6large"
  830.                 "<B<I/7Large"
  831.                 "<B<I/8LARGE"
  832.                 "<B<I/9huge"
  833.                 "<B<I/0Huge"
  834.             }
  835.     } else {
  836.         set "menu::items(Math Style)" {
  837.             "<B<I<O/Imathit"
  838.             "<B<I<O/Rmathrm"
  839.             "<B<I<O/Bmathbf"
  840.             "<B<I<O/Wmathsf"
  841.             "<B<I<O/Ymathtt"
  842.             "<B<I<O/Cmathcal"
  843.             "(-"
  844.             "<B<I<O/Ddisplaystyle"
  845.             "<B<I<O/Ttextstyle"
  846.             "<B<I<O/Sscriptstyle"
  847.             "scriptscriptstyle"
  848.         }
  849.         set "menu::items(Text Size)" {
  850.             "<B<I/1tiny"
  851.             "<B<I/2scriptsize"
  852.             "<B<I/3footnotesize"
  853.             "<B<I/4small"
  854.             "<B<I/5normalsize"
  855.             "<B<I/6large"
  856.             "<B<I/7Large"
  857.             "<B<I/8LARGE"
  858.             "<B<I/9huge"
  859.             "<B<I/0Huge"
  860.         }
  861.   }
  862. }
  863.  
  864. # Return the "Math Environments" submenu:
  865.     set "menu::proc(Math Environments)" TeX::mp::mathEnvs
  866. set "menu::otherflags(Math Environments)" {-M TeX -m}
  867. set "menu::items(Math Environments)" {
  868.         "<I/imath"
  869.         "(-"
  870.         "<U<I/idisplaymath"
  871.         "<B<I/iequation"
  872.         "(-"
  873.         "<U<I/jeqnarray*…"
  874.         "<B<I/jeqnarray…"
  875.         "(-"
  876.         "<I/jarray…"
  877.         "(-"
  878.         {<U<O/EChoose Environment…}
  879. }
  880. proc TeX::mp::mathEnvs {submenu item} {
  881.     switch $item {
  882.         "array"  {set func "myArray"}
  883.         "eqnarray\*"  {set func "eqnarrayStar"}
  884.         {Choose Environment}  {set func chooseEnvironment}
  885.         default {set func $item}
  886.     }
  887.     eval $func
  888. }
  889.  
  890. # Return the "Formulas" submenu:
  891.     set menu::proc(Formulas) TeX::mp::formulas
  892. set menu::otherflags(Formulas) {-M TeX -m}
  893. set menu::items(Formulas) {
  894.         "subscript"
  895.         "superscript"
  896.         "(-"
  897.         "<B<O/Ffrac"
  898.         {<B<O/Rsqrt}
  899.         {nth root}
  900.         "(-"
  901.         {<B<O/1one parameter…}
  902.         {<B<O/2two parameters…}
  903. }
  904. proc TeX::mp::formulas {submenu item} {
  905.     switch $item {
  906.         {frac}  {set func "fraction"}
  907.         {sqrt}  {set func "squareRoot"}
  908.         {nth root}  {set func "nthRoot"}
  909.         {one parameter}  {set func "oneParameter"}
  910.         {two parameters}  {set func "twoParameters"}
  911.         default {set func $item}
  912.     }
  913.     eval $func
  914. }
  915.  
  916. proc TeX::mp::greek {submenu item} {
  917.         checkMathMode $item 1; insertObject "\\$item"
  918. }
  919.  
  920. # Return the "Greek" submenu:
  921.     set menu::proc(Greek) TeX::mp::greek
  922. set menu::otherflags(Greek) {-M TeX -m}
  923. set menu::items(Greek) {
  924.         "alpha"
  925.         "beta"
  926.         "<SGamma"
  927.         "<Sgamma"
  928.         "<E<SDelta"
  929.         "<Sdelta"
  930.         "epsilon"
  931.         "zeta"
  932.         "eta"
  933.         "<STheta"
  934.         "<Stheta"
  935.         "iota"
  936.         "kappa"
  937.         "<SLambda"
  938.         "<Slambda"
  939.         "mu"
  940.         "nu"
  941.         "<SXi"
  942.         "<Sxi"
  943.         "omicron"
  944.         "<SPi"
  945.         "<Spi"
  946.         "rho"
  947.         "<SSigma"
  948.         "<Ssigma"
  949.         "tau"
  950.         "<SUpsilon"
  951.         "<Supsilon"
  952.         "<E<SPhi"
  953.         "<Sphi"
  954.         "chi"
  955.         "<SPsi"
  956.         "<Spsi"
  957.         "<E<SOmega"
  958.         "<Somega"
  959.         "(-"
  960.         "varepsilon"
  961.         "vartheta"
  962.         "varpi"
  963.         "varrho"
  964.         "varsigma"
  965.         "varphi"
  966. }
  967.  
  968. proc TeX::mp::binaryOperators {submenu item} {
  969.         if [regexp {[lr]hd$} $item] {
  970.                 if {![isSymbolPackageLoaded]} {return}
  971.         }
  972.         checkMathMode $item 1; insertObject "\\$item"
  973. }
  974.  
  975. # Return the "Binary Operators" submenu:
  976.     set "menu::proc(Binary Operators)" TeX::mp::binaryOperators
  977. set "menu::otherflags(Binary Operators)" {-M TeX -m}
  978. set "menu::items(Binary Operators)" {
  979.         "!±pm"
  980.         "mp"
  981.         "times"
  982.         "!÷div"
  983.         "ast"
  984.         "star"
  985.         "circ"
  986.         "bullet"
  987.         "cdot"
  988.         "cap"
  989.         "cup"
  990.         "uplus"
  991.         "sqcap"
  992.         "sqcup"
  993.         "vee"
  994.         "wedge"
  995.         "setminus"
  996.         "(-"
  997.         "diamond"
  998.         "bigtriangleup"
  999.         "bigtriangledown"
  1000.         "triangleleft"
  1001.         "triangleright"
  1002.         "lhd"
  1003.         "rhd"
  1004.         "unlhd"
  1005.         "unrhd"
  1006.         "(-"
  1007.         "oplus"
  1008.         "ominus"
  1009.         "otimes"
  1010.         "oslash"
  1011.         "odot"
  1012.         "(-"
  1013.         "bigcirc"
  1014.         "dagger"
  1015.         "ddagger"
  1016.         "amalg"
  1017.         "wr"
  1018. }
  1019.  
  1020. # Return the "Relations" submenu:
  1021.     set menu::proc(Relations) TeX::mp::relations
  1022. set menu::otherflags(Relations) {-M TeX -m}
  1023. set menu::items(Relations) {
  1024.         "<S!≥geq"
  1025.         "<S!≤leq"
  1026.         "<E<Ssucc"
  1027.         "<Sprec"
  1028.         "<E<Ssucceq"
  1029.         "<Spreceq"
  1030.         "<E<S!»gg"
  1031.         "<S!«ll"
  1032.         "<E<Ssupset"
  1033.         "<Ssubset"
  1034.         "<E<Ssupseteq"
  1035.         "<Ssubseteq"
  1036.         "<E<Ssqsupset"
  1037.         "<Ssqsubset"
  1038.         "<E<Ssqsupseteq"
  1039.         "<Ssqsubseteq"
  1040.         "<E<Sni"
  1041.         "<Sin"
  1042.         "<E<Sdashv"
  1043.         "<Svdash"
  1044.         "(-"
  1045.         "equiv"
  1046.         "sim"
  1047.         "simeq"
  1048.         "asymp"
  1049.         "!≈approx"
  1050.         "cong"
  1051.         "!≠neq"
  1052.         "doteq"
  1053.         "propto"
  1054.         "(-"
  1055.         "models"
  1056.         "perp"
  1057.         "mid"
  1058.         "parallel"
  1059.         "bowtie"
  1060.         "join"
  1061.         "smile"
  1062.         "frown"
  1063. }
  1064. proc TeX::mp::relations {submenu item} {
  1065.         if {[lsearch -exact "join sqsubset sqsupset" $item]} {
  1066.                 if {![isSymbolPackageLoaded]} {return}
  1067.         }
  1068.         checkMathMode $item 1; insertObject "\\$item"
  1069. }
  1070.  
  1071. # Return the "Arrows" submenu:
  1072. set menu::otherflags(Arrows) {-M TeX -m}
  1073. set menu::proc(Arrows) TeX::mp::arrows
  1074. set menu::items(Arrows) {
  1075.         "<SLeftarrow"
  1076.         "<Sleftarrow"
  1077.         "<E<SRightarrow"
  1078.         "<Srightarrow"
  1079.         "<E<SLeftrightarrow"
  1080.         "<Sleftrightarrow"
  1081.         "<E<SLongleftarrow"
  1082.         "<Slongleftarrow"
  1083.         "<E<SLongrightarrow"
  1084.         "<Slongrightarrow"
  1085.         "<E<SLongleftrightarrow"
  1086.         "<Slongleftrightarrow"
  1087.         "(-"
  1088.         "<SUparrow"
  1089.         "<Suparrow"
  1090.         "<E<SDownarrow"
  1091.         "<Sdownarrow"
  1092.         "<E<SUpdownarrow"
  1093.         "<Supdownarrow"
  1094.         "(-"
  1095.         "mapsto"
  1096.         "longmapsto"
  1097.         "leadsto"
  1098.         "(-"
  1099.         "leftharpoonup"
  1100.         "rightharpoonup"
  1101.         "leftharpoondown"
  1102.         "rightharpoondown"
  1103.         "rightleftharpoons"
  1104.         "hookleftarrow"
  1105.         "hookrightarrow"
  1106.         "nearrow"
  1107.         "searrow"
  1108.         "swarrow"
  1109.         "nwarrow"
  1110. }
  1111.  
  1112. proc TeX::mp::arrows {submenu item} {
  1113.         checkMathMode $item 1; insertObject "\\$item"
  1114. }
  1115.  
  1116. # Return the "Dots" submenu:
  1117.     set menu::proc(Dots) TeX::mp::generalMath
  1118. set menu::otherflags(Dots) {-M TeX -m}
  1119. set menu::items(Dots) {
  1120.         "bullet"
  1121.         "cdot"
  1122.         "(-"
  1123.         "ldots"
  1124.         "cdots"
  1125.         "vdots"
  1126.         "ddots"
  1127. }
  1128.  
  1129. # Return the "Symbols" submenu:
  1130.     set menu::proc(Symbols) TeX::mp::generalMath
  1131. set menu::otherflags(Symbols) {-M TeX -m}
  1132. set menu::items(Symbols) {
  1133.         "aleph"
  1134.         "hbar"
  1135.         "imath"
  1136.         "jmath"
  1137.         "ell"
  1138.         "wp"
  1139.         "Re"
  1140.         "Im"
  1141.         "mho"
  1142.         "(-"
  1143.         "angle"
  1144.         "backslash"
  1145.         "bot"
  1146.         "emptyset"
  1147.         "exists"
  1148.         "forall"
  1149.         "!∞infty"
  1150.         "nabla"
  1151.         "!¬neg"
  1152.         "!∂partial"
  1153.         "prime"
  1154.         "!√surd"
  1155.         "top"
  1156.         "(-"
  1157.         "Box"
  1158.         "Diamond"
  1159.         "triangle"
  1160.         "clubsuit"
  1161.         "diamondsuit"
  1162.         "heartsuit"
  1163.         "spadesuit"
  1164.         "(-"
  1165.         "flat"
  1166.         "natural"
  1167.         "sharp"
  1168. }
  1169.  
  1170. proc TeX::mp::generalMath {submenu item} {
  1171.         if {[lsearch -exact "mho Box Diamond" $item]} {
  1172.                 if {![isSymbolPackageLoaded]} {return}
  1173.         }
  1174.         switch $item {
  1175.                 "lim" - "inf" - "liminf" - "limsup" - "max" - "min" - "sup" {
  1176.                         checkMathMode $item 1
  1177.                         if {[wrapObject "\\$item_{" "}••"]} {
  1178.                             message "limit set"
  1179.                         } else {
  1180.                             message "enter limit"
  1181.                         }
  1182.                 }
  1183.                 "pmod" {
  1184.                         checkMathMode "pmod" 1
  1185.                         if {[wrapObject "\\pmod{" "}••"]} {
  1186.                                 message "parenthesized mod set"
  1187.                         } else {
  1188.                                 message "enter formula"
  1189.                         }
  1190.                 }
  1191.                 "ldots" {insertObject "\\ldots"}
  1192.                 default {
  1193.                         checkMathMode $item 1; insertObject "\\$item"
  1194.                 }
  1195.         }
  1196. }
  1197.  
  1198. # Return the "Functions" submenu:
  1199.     set menu::proc(Functions) TeX::mp::generalMath
  1200. set menu::otherflags(Functions) {-M TeX -m}
  1201. set menu::items(Functions) {
  1202.         "arccos"
  1203.         "arcsin"
  1204.         "arctan"
  1205.         "arg"
  1206.         "cos"
  1207.         "cosh"
  1208.         "cot"
  1209.         "coth"
  1210.         "csc"
  1211.         "deg"
  1212.         "det"
  1213.         "dim"
  1214.         "exp"
  1215.         "gcd"
  1216.         "hom"
  1217.         "inf"
  1218.         "ker"
  1219.         "lg"
  1220.         "<B<O/Llim"
  1221.         "liminf"
  1222.         "limsup"
  1223.         "ln"
  1224.         "log"
  1225.         "max"
  1226.         "min"
  1227.         "Pr"
  1228.         "sec"
  1229.         "sin"
  1230.         "sinh"
  1231.         "sup"
  1232.         "tan"
  1233.         "tanh"
  1234.         "(-"
  1235.         "bmod"
  1236.         "pmod"
  1237. }
  1238.  
  1239. # Return the "Large Operators" submenu:
  1240.     set "menu::otherflags(Large Operators)" {-M TeX -m}
  1241. set "menu::items(Large Operators)"  {
  1242.         "<B<O/Ssum"
  1243.         "<B<O/Pprod"
  1244.         "coprod"
  1245.         "<B<O/Iint"
  1246.         "oint"
  1247.         "(-"
  1248.         "bigcup"
  1249.         "bigcap"
  1250.         "bigsqcup"
  1251.         "bigvee"
  1252.         "bigwedge"
  1253.         "bigodot"
  1254.         "bigotimes"
  1255.         "bigoplus"
  1256.         "biguplus"
  1257. }
  1258.  
  1259. # Return the "Delimiters" submenu:
  1260.     set menu::proc(Delimiters) TeX::mp::delimiters
  1261. set menu::otherflags(Delimiters) {-M TeX -m}
  1262. set menu::items(Delimiters) {
  1263.         "parentheses"
  1264.         "brackets"
  1265.         "braces"
  1266.         {vertical bars}
  1267.         {other delims…}
  1268.         "(-"
  1269.         {half-open interval}
  1270.         {half-closed interval}
  1271.         "(-"
  1272.         {<Smulti-line big parentheses}
  1273.         {<Sbig parentheses}
  1274.         {<E<Smulti-line big brackets}
  1275.         {<Sbig brackets}
  1276.         {<E<Smulti-line big braces}
  1277.         {<Sbig braces}
  1278.         {<E<Smulti-line big vertical bars}
  1279.         {<Sbig vertical bars}
  1280.         {<E<Sother multi-line big delims…}
  1281.         {<Sother big delims…}
  1282.         "(-"
  1283.         {<Smulti-line big left brace}
  1284.         {<Sbig left brace}
  1285.         {<E<Sother multi-line mixed big delims…}
  1286.         {<Sother mixed big delims…}
  1287. }
  1288. proc TeX::mp::delimiters {submenu item} {
  1289.     switch $item {
  1290.         {vertical bars}  {set func "absoluteValue"}
  1291.         {other delims}  {set func "otherDelims"}
  1292.         {half-open interval}  {set func "half-openInterval"}
  1293.         {half-closed interval}  {set func "half-closedInterval"}
  1294.         {big parentheses}  {set func "bigParens"}
  1295.         {multi-line big parentheses}  {set func "multiBigParens"}
  1296.         {big brackets}  {set func "bigBrackets"}
  1297.         {multi-line big brackets}  {set func "multiBigBrackets"}
  1298.         {big braces}  {set func "bigBraces"}
  1299.         {multi-line big braces}  {set func "multiBigBraces"}
  1300.         {big vertical bars}  {set func "bigAbsValue"}
  1301.         {multi-line big vertical bars}  {set func "multiBigAbsValue"}
  1302.         {other big delims}  {set func "otherBigDelims"}
  1303.         {other multi-line big delims}  {set func "otherMultiBigDelims"}
  1304.         {big left brace}  {set func "bigLeftBrace"}
  1305.         {multi-line big left brace}  {set func "multiBigLeftBrace"}
  1306.         {other mixed big delims}  {set func "otherMixedBigDelims"}
  1307.         {other multi-line mixed big delims}  {set func "otherMultiMixedBigDelims"}
  1308.         default {set func $item}
  1309.     }
  1310.     eval $func
  1311. }
  1312.  
  1313. # Return the "Math Accents" submenu:
  1314.     set "menu::otherflags(Math Accents)" {-M TeX -m}
  1315. set "menu::items(Math Accents)"  {
  1316.         "<B<O/Aacute"
  1317.         "<B<O/Bbar"
  1318.         "breve"
  1319.         "<B<O/Ccheck"
  1320.         "<B<O/Ddot"
  1321.         "ddot"
  1322.         "<B<O/Ggrave"
  1323.         "<B<O/Hhat"
  1324.         "<B<O/Ttilde"
  1325.         "<B<O/Vvec"
  1326.         "(-"
  1327.         "widehat"
  1328.         "widetilde"
  1329.         "(-"
  1330.         "imath"
  1331.         "jmath"
  1332. }
  1333.  
  1334. # Return the "Grouping" submenu:
  1335.     set "menu::otherflags(Grouping)" {-M TeX -m}
  1336. set "menu::items(Grouping)"  {
  1337.         "<B<O/Uunderline"
  1338.         "<B<O/Ooverline"
  1339.         "<B<I<O/Uunderbrace"
  1340.         "<B<I<O/Ooverbrace"
  1341.         "(-"
  1342.         "overrightarrow"
  1343.         "overleftarrow"
  1344.         "(-"
  1345.         "stackrel"
  1346. }
  1347.  
  1348. # Return the "Spacing" submenu:
  1349.     set menu::proc(Spacing) TeX::mp::spacing
  1350. set menu::otherflags(Spacing) {-M TeX -m}
  1351. set menu::items(Spacing) {
  1352.         {neg thin}
  1353.         "thin"
  1354.         "medium"
  1355.         "thick"
  1356.         "(-"
  1357.         "quad"
  1358.         "qquad"
  1359.         "(-"
  1360.         "hspace"
  1361.         "vspace"
  1362.         "(-"
  1363.         "hfill"
  1364.         "vfill"
  1365.         "(-"
  1366.         "smallskip"
  1367.         "medskip"
  1368.         "bigskip"
  1369. }
  1370. proc TeX::mp::spacing {submenu item} {
  1371.     switch $item {
  1372.         {neg thin}  {set func "negThin"}
  1373.         default {set func $item}
  1374.     }
  1375.     eval $func
  1376. }
  1377.  
  1378.